home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / ugly174.zip / UPGRADE7.BAT < prev    next >
DOS Batch File  |  1992-07-05  |  8KB  |  330 lines
  1. echo off
  2.  
  3. echo RBBS batch file to upgrade RBBS v17.4 with .MRGs using BC 7.1
  4.  
  5. rem Compiler options supplied by Walter Ames and Nelson Winter.
  6. rem Untested by moi! -- TC
  7.  
  8. if %1?==? goto Usage
  9. if %1==Y goto RBBSTest
  10. if %1==y goto RBBSTest
  11. if %1==N goto End
  12. if %1==n goto End
  13.  
  14. :Start
  15.  
  16. if not exist C:\BC7\BINB\BLED.EXE goto NoBLED
  17. if not exist ANSIED.BAS goto CBled0
  18. if not exist VARMOD.EXE goto NoVARMOD
  19.  
  20. :CBled0
  21.  
  22. if not exist CVAR%1.BAS goto CBled1
  23. if exist CNFG-VAR.BAS del CNFG-VAR.BAS
  24. ren CVAR%1.BAS CNFG-VAR.BAS
  25.  
  26. :CBled1
  27.  
  28. if not exist CONFIG.BAS goto CBled2
  29. if not exist CNFG%1.MRG goto CBled2
  30. C:\BC7\BINB\BLED /B/L CONFIG.BAS CNFG%1.MRG CNFG%1.BAS
  31. del CONFIG.BAS
  32. del CNFG%1.MRG
  33. ren CNFG%1.BAS CONFIG.BAS
  34.  
  35. :CBled2
  36.  
  37. if not exist CNFG-SUB.BAS goto RBled0
  38. if not exist CSUB%1.MRG goto RBled0
  39. C:\BC7\BINB\BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS
  40. del CNFG-SUB.BAS
  41. del CSUB%1.MRG
  42. ren CSUB%1.BAS CNFG-SUB.BAS
  43.  
  44. :RBled0
  45.  
  46. if not exist RVAR%1.BAS goto RBled1
  47. if exist RBBS-VAR.BAS del RBBS-VAR.BAS
  48. ren RVAR%1.BAS RBBS-VAR.BAS
  49.  
  50. :RBled1
  51.  
  52. if not exist RBBS-PC.BAS goto RBled2
  53. if not exist R-PC%1.MRG goto RBled2
  54. C:\BC7\BINB\BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS
  55. del RBBS-PC.BAS
  56. del R-PC%1.MRG
  57. ren R-PC%1.BAS RBBS-PC.BAS
  58.  
  59. :RBled2
  60.  
  61. if not exist RBBSSUB1.BAS goto RBled3
  62. if not exist RSB1%1.MRG goto RBled3
  63. C:\BC7\BINB\BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS
  64. del RBBSSUB1.BAS
  65. del RSB1%1.MRG
  66. ren RSB1%1.BAS RBBSSUB1.BAS
  67.  
  68. :RBled3
  69.  
  70. if not exist RBBSSUB2.BAS goto RBled4
  71. if not exist RSB2%1.MRG goto RBled4
  72. C:\BC7\BINB\BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS
  73. del RBBSSUB2.BAS
  74. del RSB2%1.MRG
  75. ren RSB2%1.BAS RBBSSUB2.BAS
  76.  
  77. :RBled4
  78.  
  79. if not exist RBBSSUB3.BAS goto RBled5
  80. if not exist RSB3%1.MRG goto RBled5
  81. C:\BC7\BINB\BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS
  82. del RBBSSUB3.BAS
  83. del RSB3%1.MRG
  84. ren RSB3%1.BAS RBBSSUB3.BAS
  85.  
  86. :RBled5
  87.  
  88. if not exist RBBSSUB4.BAS goto RBled6
  89. if not exist RSB4%1.MRG goto RBled6
  90. C:\BC7\BINB\BLED /B/L RBBSSUB4.BAS RSB4%1.MRG RSB4%1.BAS
  91. del RBBSSUB4.BAS
  92. del RSB4%1.MRG
  93. ren RSB4%1.BAS RBBSSUB4.BAS
  94.  
  95. :RBled6
  96.  
  97. if not exist RBBSSUB5.BAS goto ABled1
  98. if not exist RSB5%1.MRG goto ABled1
  99. C:\BC7\BINB\BLED /B/L RBBSSUB5.BAS RSB5%1.MRG RSB5%1.BAS
  100. del RBBSSUB5.BAS
  101. del RSB5%1.MRG
  102. ren RSB5%1.BAS RBBSSUB5.BAS
  103.  
  104. :ABled1
  105.  
  106. if not exist ANSIED.BAS goto ArgTest
  107. VARMOD %1
  108. if not exist AED4%1.MRG goto ArgTest
  109. C:\BC7\BINB\BLED /B/L ANSIED.BAS AED4%1.MRG AED4%1.BAS
  110. del ANSIED.BAS
  111. del AED4%1.MRG
  112. ren AED4%1.BAS ANSIED.BAS
  113.  
  114. :ArgTest
  115.  
  116. shift
  117. if %1?==? goto End
  118. if %1==Y goto RBBSTest
  119. if %1==y goto RBBSTest
  120. if %1==N goto End
  121. if %1==n goto End
  122. goto CBled0
  123.  
  124. :RBBSTest
  125.  
  126. if not exist RBBS-PC.BAS goto NoPC
  127. if not exist RBBSSUB1.BAS goto NoSUB1
  128. if not exist RBBSSUB2.BAS goto NoSUB2
  129. if not exist RBBSSUB3.BAS goto NoSUB3
  130. if not exist RBBSSUB4.BAS goto NoSUB4
  131. if not exist RBBSSUB5.BAS goto NoSUB5
  132. if not exist RBBS-VAR.BAS goto NoRVAR
  133.  
  134. if not exist C:\BC7\BINB\BC.EXE goto NoQB
  135. if not exist C:\BC7\LIB\BCL71ANR.LIB goto NoBCOM
  136. REM if not exist C:\BC7\BINB\LINK.EXE goto NoLINK
  137. if not exist 10-NET.OBJ goto No10
  138. if not exist ANSI17.OBJ goto NoANSI
  139. if not exist BDRIVEC2.OBJ goto NoBD
  140. if not exist FOSSCOMM.OBJ goto NoFOSS
  141. if not exist GIVEBK31.OBJ goto NoGIVE
  142. if not exist PC-NET.OBJ goto NoPCNET
  143. if not exist QBARCV6.OBJ goto NoQBARCV
  144. if not exist RBBSDV.OBJ goto NoDV
  145. if not exist RBBSML.OBJ goto NoML
  146. if not exist RBBSUTIL.OBJ goto NoUTIL
  147. if not exist XMODEM.OBJ goto NoXMOD
  148. if not exist RBBSHS.OBJ goto NoHS
  149. if not exist BASNOV.OBJ goto NoNOV
  150.  
  151. :ATest
  152.  
  153. if not exist ANSIED.BAS goto RCompile
  154. if not exist MOVCSTR.OBJ goto NoMOVC
  155. if not exist FINDWORD.OBJ goto NoFIND
  156.  
  157. :RCompile
  158.  
  159. echo Compiling RBBS-PC.BAS...
  160. C:\BC7\BINB\BC RBBS-PC.BAS,RBBS-PC,NUL /O/C:4096/S/E/MBF/FPa;
  161. echo Compiling RBBSSUB1.BAS...
  162. C:\BC7\BINB\BC RBBSSUB1.BAS,RBBSSUB1,NUL /X/O/E/MBF/FPa;
  163. echo Compiling RBBSSUB2.BAS...
  164. C:\BC7\BINB\BC RBBSSUB2.BAS,RBBSSUB2,NUL /O/E/MBF/FPa;
  165. echo Compiling RBBSSUB3.BAS...
  166. C:\BC7\BINB\BC RBBSSUB3.BAS,RBBSSUB3,NUL /O/E/MBF/FPa;
  167. echo Compiling RBBSSUB4.BAS...
  168. C:\BC7\BINB\BC RBBSSUB4.BAS,RBBSSUB4,NUL /O/E/MBF/FPa;
  169. echo Compiling RBBSSUB5.BAS...
  170. C:\BC7\BINB\BC RBBSSUB5.BAS,RBBSSUB5,NUL /O/E/MBF/FPa;
  171. if not exist ANSIED.BAS goto DoLink
  172. echo Compiling ANSIED.BAS...
  173. C:\BC7\BINB\BC ANSIED.BAS,ANSIED,NUL /X/O/C:4096/E/MBF/FPa;
  174.  
  175. :DoLink
  176.  
  177. echo RBBS-PC+  >  LINK7.DAT
  178. echo RBBSSUB1+ >> LINK7.DAT
  179. echo RBBSSUB2+ >> LINK7.DAT
  180. echo RBBSSUB3+ >> LINK7.DAT
  181. echo RBBSSUB4+ >> LINK7.DAT
  182. echo RBBSSUB5+ >> LINK7.DAT
  183. if exist ANSIED.BAS echo ANSIED+   >> LINK7.DAT
  184. if exist ANSIED.BAS echo MOVCSTR+  >> LINK7.DAT
  185. if exist ANSIED.BAS echo FINDWORD+ >> LINK7.DAT
  186. echo QBARCV6+  >> LINK7.DAT
  187. echo ANSI17+   >> LINK7.DAT
  188. echo XMODEM+   >> LINK7.DAT
  189. echo RBBSML+   >> LINK7.DAT
  190. echo BDRIVEC2+ >> LINK7.DAT
  191. echo PC-NET+   >> LINK7.DAT
  192. echo 10-NET+   >> LINK7.DAT
  193. echo RBBSUTIL+ >> LINK7.DAT
  194. echo RBBSDV+   >> LINK7.DAT
  195. echo GIVEBK31+ >> LINK7.DAT
  196. echo RBBSHS+   >> LINK7.DAT
  197. echo BASNOV+   >> LINK7.DAT
  198. echo FOSSCOMM, >> LINK7.DAT
  199. echo RBBS-PC,  >> LINK7.DAT
  200. echo NUL,      >> LINK7.DAT
  201. echo C:\BC7\LIB\BCL71ANR.LIB /STACK:2048 /EXEPACK; >> LINK7.DAT
  202.  
  203. LINK @LINK7.DAT
  204.  
  205. :CCompile
  206.  
  207. if not exist CONFIG.BAS goto End
  208. if not exist CNFG-SUB.BAS goto NoCSUB
  209. if not exist CNFG-VAR.BAS goto NoCVAR
  210.  
  211. echo Compiling CONFIG.BAS...
  212. C:\BC7\BINB\BC CONFIG.BAS,CONFIG,NUL /O/E/C:4096/S/MBF/FPa;
  213. echo Compiling CNFG-SUB.BAS...
  214. C:\BC7\BINB\BC CNFG-SUB.BAS,CNFG-SUB,NUL /O/E/C:4096/S/MBF/FPa;
  215. LINK CONFIG+CNFG-SUB+RBBSUTIL+FOSSCOMM,CONFIG,NUL C:\BC7\LIB\BCL71ANR.LIB/EXEPACK;
  216.  
  217. goto End
  218.  
  219. :NoQB
  220. echo Missing C:\BC7\BINB\BC.EXE... Aborted.
  221. goto End
  222. :NoLINK
  223. echo Missing C:\BC7\BINB\LINK.EXE... Aborted.
  224. goto End
  225. :NoBLED
  226. echo Missing C:\BC7\BINB\BLED.EXE... Aborted.
  227. goto End
  228. :No10
  229. echo Missing 10-NET.OBJ... Aborted.
  230. goto End
  231. :NoANSI
  232. echo Missing ANSI17.OBJ... Aborted.
  233. goto End
  234. :NoBD
  235. echo Missing BDRIVEC2.OBJ... Aborted.
  236. goto End
  237. :NoFOSS
  238. echo Missing FOSSCOMM.OBJ... Aborted.
  239. goto End
  240. :NoGIVE
  241. echo Missing GIVEBK31.OBJ... Aborted.
  242. goto End
  243. :NoPCNET
  244. echo Missing PC-NET.OBJ... Aborted.
  245. goto End
  246. :NoQBARCV
  247. echo Missing QBARCV6.OBJ... Aborted.
  248. goto End
  249. :NoDV
  250. echo Missing RBBSDV.OBJ... Aborted.
  251. goto End
  252. :NoML
  253. echo Missing RBBSML.OBJ... Aborted.
  254. goto End
  255. :NoUTIL
  256. echo Missing RBBSUTIL.OBJ... Aborted.
  257. goto End
  258. :NoXMOD
  259. echo Missing XMODEM.OBJ... Aborted.
  260. goto End
  261. :NoHS
  262. echo Missing RBBSHS.OBJ... Aborted.
  263. goto End
  264. :NoNOV
  265. echo Missing BASNOV.OBJ... Aborted.
  266. goto End
  267. :NoMOVC
  268. echo Missing MOVCSTR.OBJ (for ANSIED.BAS)... Aborted.
  269. goto End
  270. :NoFIND
  271. echo Missing FINDWORD.OBJ (for ANSIED.BAS)... Aborted.
  272. goto End
  273. :NoPC
  274. echo Missing RBBS-PC.BAS... Aborted.
  275. goto End
  276. :NoSUB1
  277. echo Missing RBBSSUB1.BAS... Aborted.
  278. goto End
  279. :NoSUB2
  280. echo Missing RBBSSUB2.BAS... Aborted.
  281. goto End
  282. :NoSUB3
  283. echo Missing RBBSSUB3.BAS... Aborted.
  284. goto End
  285. :NoSUB4
  286. echo Missing RBBSSUB4.BAS... Aborted.
  287. goto End
  288. :NoSUB5
  289. echo Missing RBBSSUB5.BAS... Aborted.
  290. goto End
  291. :NoRVAR
  292. echo Missing RBBS-VAR.BAS... Aborted.
  293. goto End
  294. :NoCNFG
  295. echo Missing CONFIG.BAS... Aborted.
  296. goto End
  297. :NoCSUB
  298. echo Missing CNFG-SUB.BAS... Aborted.
  299. goto End
  300. :NoCVAR
  301. echo Missing CNFG-VAR.BAS... Aborted.
  302. goto End
  303. :NoBCOM
  304. echo Missing C:\BC7\BINB\LIB\BCL71ANR.LIB... Aborted.
  305. goto End
  306. :NoVARMOD
  307. echo Missing VARMOD.EXE (for ANSIED.BAS)... Aborted.
  308. goto End
  309.  
  310. :Usage
  311. echo Usage: UPGRADE7 xxxx zzzz [Y][N]
  312. echo  
  313. echo        where xxxx and zzzz are the upgrade thingies to add to
  314. echo        the end of the MRG filenames.  Add the Y switch if you
  315. echo        want to compile the upgraded files, or N to skip the compile.
  316. echo  
  317. echo        If ANSIED.BAS exists, it will be compiled and linked into
  318. echo        the final RBBS-PC.EXE.  If not, not.
  319. echo  
  320. echo        If the CONFIG files exist, they'll also be upgraded with any
  321. echo        applicable merges.  If not, not.
  322. echo  
  323. echo        You can include as many merges as you like on the command
  324. echo        line.
  325. echo  
  326. echo    Ex: UPGRADE7 UGLY EDIT Y to add the UGLY and EDIT merges & compile
  327. goto End
  328.  
  329. :End
  330.